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EXCEL-~9: A 6809 Card with FLEX. eaoveeveeeevecee - Bob Sander-Cederlof 


For the last month and a half I have been working with a 
fantastic new device: the EXCEL-9 from Seikou Electronics in 
Japan. The EXCEL-9 contains a 6809E CPU, 8K bytes of ROM, and an 
interval timer. The 8K ROM contains a monitor with 35 commands 
(including mini-assembler anddis-assembler commands). The 
introductory price of $399.95 includes the FLEX Operating System 
from Technical Systems Consultants (TSC), with utilities, text 
editor, and macro assembler. 


The board will soon be appearing in your local computer stores, 
courtesy of ESD Laboratories. I worked with them to translate 
the excellent reference manual into English. (That explains how 
I obtained one of the boards so early.) 


EXCEL-9 has a lot of unique features that should make it a very 
popular board: 


* An on-board interval timer (with 24 intervals from 2 
microseconds to 16 seconds) can be used from both the 6809 and 
6502. 


* Built-in linkage routines for calling 6809 subroutines from 
Applesoft, Integer BASIC, or 6502 machine language. You can also 
call 6502 routines and even DOS 3.3 commands from 6809 programs. 


* Option of using standard Apple intelligent interfaces with 
6502 firmware, or of using new cards with 6809 firmware. 


* Memory Mapping that supports the FLEX operating system. 
Future option to add external memory to EXCEL-9, allowing 
full-speed multiprocessing. 


I intend to handle these boards. You can order them from me now, 
but please allow a while for delivery. The documentation is 
ready for the printer, but not yet printed. 


Applesoft Hi 


~Res SubroutineS.....csccccceeeeee BOD Sander-Cederlof 


One of the questions I hear the most is “How can I call the 
Hi-Res subroutines in the Applesoft ROMs?" The basic information 
about those subroutines has been published (in Apple Orchard, 


vol. 1 No. 1 
First, some 


$1A,1B 
$1c 
$26,27 
$30 
$E0,E1 
SE2 
SE4 
SE6 
SE7 
SE8,E9 
SEA 
SF9 


The software 


), but with an error in the subroutine addresses. 
important locations in page zero: 


Shape pointer used by DRAW and XDRAW 
Last used color byte 

Address of byte containing X,Y point 
Bit mask for bit in that byte 
X-coordinate (0-279) 

Y-coordinate (0-191) 

Color 

Page ($20 if HGR, $40 if HGR2) 
SCALE= value 

Address of beginning of shape table 
Collision counter 

ROT= value 


uses some other page zero variables, but I am not 


too clear yet on their purpose. 


Now here are the major entry points: 


HGR2 


HGR 


HCLR 


BKGND 


HPOSN 


HPLOT 


HLIN 


HFIND 


Page 2....Apple 


SF3D8 Initialize and clear hi-res page 2. 
SF3E2 Initialize and clear hi-res page l. 
SF3F2 Clear the current hi-res screen to black. 


SF3F6 Clear the current hi-res screen to the 
last plotted color (from ($1C). 


SF411 Positions the hi-res cursor without 
plotting a point. 
Enter with (A) = Y-coordinate, and 
(Y,X) = X-coordinate. 


$F457 Calls HPOSN and tries to plot a dot at 
the cursor's position. If you are 
trying to plot a non-white color at 
a complementary color position, no 
dot will be plotted. 


SF53A Draws a line from the last plotted 
point or line destination to: 
(X,A) = X-coordinate, and 
(Y) = Y-coordinate. 


SF5CB Converts the hi-res coursor's position 
back to X- and Y-coordinates; stores 
X-coordinate at S$EO,El and Y-coordinate 
at SE2. 
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DRAW SF601 Draws a shape. Enter with (Y,X) = the 
address of the shape table, and (A) = 
the rotation factor. Uses the current 
color. 


XDRAW SF65D Draws a shape by inverting the existing 
color of the dots the shape draws over. 
Same entry parameters as DRAW. 


SETHCOL SF6EC Set the hi-res color to (X), where (X) 
must be between 0 and 7. 


I wrote a sample demonstration program of the hi-res subroutines. 
First, here is an Applesoft version. Note that it first sets the 
whole screen to a particular color, and then draws a series of 
nested squares in a complementary color. Since it is nice and 
short, why don't you type it in and try it? 


100 

110 FOR C = 0 TO 7: HCOLOR= 

120 HPLOT 0,0: CALL 62454; REM CLEAR TO CURRENT COLOR 
Pe HCOLOR= 7 - C 

140 FOR S = 10 TO 190 STEP 10 

190 X1 = 140 - S / 2:X2 = X1 +5 

160 Y1 = 95 - S / 2:Y2 = Y1 


+S 
1 0 HPLOT X1,Y1 TO X2.¥1 TO X2.Y2 TO X1,Y2 TO X1,Y1 
190 PRINT CHR$ (7): FOR I = 1 TO 500: NEXT 
0 NEXT C 
210 TEXT 


Now here is the assembly language program for the same task. It 
seemed to run about twice as fast as the Applesoft version, but I 
didn't use the stopwatch on it. 


O00 Bemensewecccect acco ceweseccesseee 
a . SAMPLE PLOTTING PROGRAM 
001C~- oF AS.LASTCLR -EQ $1C 
F3D8- AS.HGR2 EQ P2Ds SET UP HI-RES PAGE 2 
F3F2- AS.HCLR -EQ $F3F2 CLEAR HI-RES SCREEN 
F3F6- AS.BKGND .EQ $F3F6 CLEAR HI-RES SCREEN TO LAST COLOR 
F4ii- AS.HPOSN .EQ $F411 MOVE CURSOR TO (Y,X),(A) 
F45T- AS.HPLOT .EQ $F457 PLOT A DOT AT (Y,x) tA) 
F53A- « HL FQ $F53A DRAW A LINE FROM LAST POINT TO (X,A),(Y) 
FB2F- MON . TEXT -EQ $FB2F 


HI .RES.DEMO 
O800- 20 D8 F3 JSR 


0805- 8E AD 08 
0808- 20 rhe F6 


O80D- 20 F6 F 
0810- AD oy 0 


1 STX COLOR 


CLR 
JSR “Ty a CLEAR SCREEN TO SOLID COLOR 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

O AS.HLIN . 
: AS.SETHCOL .EQ $F6EC SET HI-RES COLOR 
0 

0 

0 

0 

0 

0 

0 

0 

0 EOR #7 COMPLEMENTARY COLOR 


Coa) 
6, | 
Q 
| 
eek eek anh aed ank ond eh ood ed ce edd ed ed oh owt ob oh ed ed ed ob oh od 


Apple Assembly Line....December, 1981....Copyright (C) S-C SOFTWARE....Page 3 


0 15- AA 1230 TAX 
0816- 20 EC F6 1240 JSR AS.SETHCOL 
0819- 20 28 08 1250 JSR DRAW. SQUARE 
081C- AE AD 08 1260 LDX COLOR NEXT COLOR 
O81F- E8 1270 INX 
wepe ie fA 
O824- 30 2F FB 1300 JSR MON.TEXT 
0827- 60 1310 RTS 
1900 Beets at ae se otters e 
1330 DRAW. SQUARE 
0828- AQ OA 1340 LDA #10 FOR SIZE=10 TO 190 STEP 10 
Oba GD AE 08 tot REA STE 2/2 
apse ba 08 1310 © STA gtzE2 
0833- BD B1 08 1390 STA XSTART+1 
0836- 8D B4 08 1860 STA XSTOP+1 
08 39- 8 1410 SEC XSTART=140-SIZE/2 
O83A- A9 8C 1420 LDA #140 
083C- ED AF 08 1430 SBC SIZE2 
O83F- 8D BO 08 1440 STA XSTART 
O8he- 18 14190 CLC XSTOP=XSTART+SIZE 
0843- 6D AE 08 1460 ADC SIZE 
gu 2S 68 Jy a Haro 
O84A- AQ 5F 1490 LDA #95 YSTART=95-SIZE/2 
ORR” Bb Be OB “ENG STA YSTART 
Fe 
0852- 18 1520 CLC YSTOP=YSTART+SIZE 
ee ee |X com 
0859- AC B1 08 1550 LDY XSTART+1 HPLOT XSTART,YSTART 
Oper. AE BS og dere CDA YSTART 
ORE 20 57 FA 1260 JSR AS.HPLOT 
0865- AE B4 08 1590 LDX XSTOP+1 TO XSTOP,YSTART 
OpeB. AG BS OB 110 [DY YSTART 
O86E- 20 3A F5 1038 JSR AS.HLIN 
0871- AE BY 08 1630 LDX XSTOP+1 TO XSTOP,YSTOP 
SRE | Bh ER 
Ge 20 3A F5 1828 JSR AS.HLIN 
O87D- AE B1 08 1670 LDX XSTART+1 TO XSTART,YSTOP 
Saag. AD Be OB tees (DY YSTOP 
OF ee 20 3A F5 1700 JSR AS.HLIN 
0889- AE B1 08 1710 LDX XSTART+1 TO XSTART,YSTART 
O88C- AD BO 08 1720 LDA XSTART 
O88F- AC B2 08 1730 LDY YSTART 
ee ga a ith 
0896- AD AE 08 1780 LDA SUE NEXT SIZE 
on ae 
1800 DELAY.LOOP _ 
O89F- AO 00 1810 LDY #0 DELAY LOOP SO WE CAN SEE IT 
O8A1- A200 ~=—-:1820 .1 LDX #0 
net nt ae 
O8A6- AD 30 CO 1850 LDA $C030 AND HEAR IT 
O8a9- 8 1860 DEY 
O8AA- DO F5 1 70 BNE .1 
O8AC- 60 0, RTS 
O8AD- 1900 COLOR .BS 1 
O8AE- 1910 SIZE .BS 1 
O8AF- 1920 SIZE2 .BS 1 
08B0- 1930 XSTART .BS 2 
08B2- 190 YSTART .BS 1 
O88 i 1950 XSTOP .BS 2 
08B5- 1960 YSTOP .BS 1 
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S-C ASSEMBLER II Version AO kee ode ew Se 66d ew ORS OS bewSe ©4080 0600 
Includes Manual, Diskette with Assembler and sample 
source programs, and Quick Reference Card. 


Source code of Version 4.0 On dGiSk..cccccccccccccccccccesese see 995.00 
Fully commented, easy to understand and modify to 
your own tastes. 


Cross Assembler Patches for 6809... ccccccccccsecccccsvesecesee S 20.00 
Requires possession of Version 4.0. Enables you to 
develop programs for the Motorola 6809 CPU. (The 
MILL from Stellation, EXCEL-9 from ESD Laboratories, 
or the Radio Shack Color Computer.) 


Cross Assembler for 6800 .cccccccccccascvevussesesvcssecsecsesse922e50 
Requires possession of Version 4.0. Enables you to 
develop programs for the Motorola 6800, 6801, and 
6802 CPUs. 


AAL QUa@rterly DISkScisi cdc cd sseseden sesacweieneveeiween wes @ach $15,500 
Each disk contains all the source code from three 
issues of "Apple Assembly Line", to save you lots 
of typing and testing time. 
QD#1: Oct - Dec 1980 QD#4: Jul - Sep 1981 
QD#2: Jan - Mar 1981 QD#5: Oct - Dec 1981 
QD#3: Apr - Jun 1981] 


Double Precision Floating Point for AppleSOft......cceveeveeceee 950.00 
Provides 2l-digit precision for Applesoft programs. 
Includes subroutines for standard math functions. 


Some Simple Integer BASIC GANGS 6606-0 Kk SAO NEA SOK 6s ons e000 
Includes 4x4x4 tic-tac-toe, lo-res space war, lo-res 
jig-saw puzzle, and mastermind. 


Blank Diskettes......... cece cccccceccccccess s package of 20 for $50. 00 
Verbatim Datalife, with hub rings, no labels, in plain 
white jackets, in cellophane wrapper. 


Lower-Case Display Encoder ROM... .cccccccccscccccccsccsccccsveee Sse 00 
Works only Revision level 7 Apples. Replaces the 
encoder ROM. Comes with instructions. 


Diskette Mailing ProtectorS....cccccccscccsecee+ l0-99: 40 cents each 
100 or more: 25 cents each 
Corrugated folder specially designed for mailing 
mini-floppy diskettes. Fits in standard 6x9-inch 
envelope. (Envelopes 5-cents each, if you need them.) 


Zip-Lock Bags (2-mil, OKO”) ceri win hb beste wes Wee wus s 100 for $8.50 
(2-mil, OPK 2) ob sae bc ews bw eee ew dee uny ce LOO for $13.00 


Books, Books, BOOKS...c.cccccccecccccceesecomMpare our discount prices! 
"Beneath Apple DOS", Worth & Lechner....cccccceeee ($19.95) $18.00 
“What's Where in the Apple", William Leubert.....($14.95) $14.00 
"6502 Assembly Language Programming", Leventhal.. ($16.99) $16.00 
"Apple Assembly Language", Don & Kurt Inman......($12.95) $12.00 


*** S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
wee (214) 324-2050 We take Master Charge and VISA *** 
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HEX CONSTANTS I8 APPLESOFT 


David H Bartley 


Coding in BASIC has several 
frustrations for the assembly language 
programmer. One small but constant 


irritant for me has been the inability to 
directly specify hexadecimal values in 
Applesoft statements or in response to an 
INPUT command. I finally decided to do 
something about it when I _ read Bob 
Sander-Cederlof's article on the CHRGET 
routine in the September Apple Assembly 
Line. The result is the short program 
shown in Listing 1. 


My goal was to be able to enter a hex 
constant, defined as a "$" followed by one 
or more hex digits, anywhere Applesoft 
would allow an integer constant to appear. 
I nearly succeeded -- I'll discuss the 
exceptions a little later. I now can 
write statements like 


100 FOR I = $0 TO $FF 
110 INPUT X, Y 
120 Z2(1) = $100*X + Y - $3DEF 


The responses to the INPUT statement may 
also be hex constants. Values may range 
from -$FFFF (-65535) to $FFFF (+65535); 
the left-most bit is not considered a sign 
bit. 


My program is set up by BRUN-ning the 
object file XB.A/S HEX CONSTANTS (see line 
1010). Initialization consists of 
modifying the Applesoft CHRGET routine to 
branch into new code starting at line 
1400. As you may recall, CHRGET is used 
by the BASIC interpreter to fetch 
characters and tokens from the program 
text or keyboard when a progran is 
executing. The new CHRGET code watches 
for a "$" character; when one is found, it 
scans forward until it hits a character 
which is not a hex digit, converting to a 
binary value (in VAL) on the fly. 


Variable IDX gerves two purposes. It 
is normally negative, signifying that 
characters are to be fetched without 
special action until] a "$" is encountered. 
After a hex constant is found and 


converted to a binary value, IDX becomes a 
positive index into a power-of-ten table 
to facilitate converting VAL to a decimal 
value. Each subsequent call to CHRGET 
then returns a successive character of the 
decimal integer representation of VAL 
until IDX becomes -1, the entire value has 
been transformed from hex to decimal, and 
the normal mode is restored. 


There are, of course, several 
complications. One is the BASIC “DEF” 
command, which happens to consist of a 
string of hex digits. Applesoft therefore 
parses a constant like "$3DEF" as the 
ASCII characters "$" and "3" followed by 
the DEF token (hex 88). Lines 1760 to 
1840 take care of that. 


A more serious complication is the 
existence of a frequently used alternate 
entry point to CHRGET called CHRGOT. 
CHRGOT is called to fetch the previous 
item from the text rather than the next 


one. It seems that numeric constants are 
parsed from several places within the 
Applesoft interpreter, with some using 


CHRGOT and others not. When I fixed 
things up so CHRGOT would work for inline 
constants and the INPUT command, it no 
longer worked for values in DATA 
statements (or for hex line numbers, for 
that matter!) 


The trick that makes CHRGOT work (most 
of the time) is to back up TXTPTR and then 
return a leading zero to start off the 
converted decimal value. The zero causes 
no consternation for the parts of the 
interpreter that see it and is not missed 
by those that don't. If CHRGOT is not 
called, however, MTXTPTR should not be 
backed up. You can't win! 


I hope others will be able to make use 
of this routine -- better, that someone 
will overcome the problem with DATA 
statement values. It has been quite 
valuable to me as it is, as well as quite 
an education in understanding the inner 
workings of the Applesoft interpreter. 
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XS.A/S HEX CONSTANTS 8 November 1981 David H Bartley 


1888 -OR $8308 


1812 .TF XB.A/S HEX CONSTANTS 
1920 *--------------------------------- 
18308 * 
1949 * APPLESOFT HEX CONSTANTS 
1858 * 
1968 * WRITTEN BY DAVID H BARTLEY 
1878 * AUSTIN, TEXAS -- AUGUST 1981 
1988 * 
1999 * TO INITIALIZE: 
1198 * BRUN THIS PROGRAM 
1118 * 
1120 * TO USE: 
1130 * PRECEDE HEX CONSTANTS 
1140 * WITH A "S$" CHARACTER 
1159 * 
116Q@ *-----------------------~----------+ 
EQ03- 1178 BASIC .EQ SE983 
OOBl- 1188 CHRGET .EQ $@80B1 A/S CHRGET RTN 
S2B7- 1198 CHRGOT .EQ $8@8B7 A/S CHRGOT RTN 
SOBA- 1288 CHRCHK .EQ CHRGOT+3 
SOB8- 1218 TXTPTR .EQ S$B8 A/S TEXT PTR 
E8D5- 1228 OVERR .EQ SE8D5 OVERFLOW ERROR 
OOFC- 1238 TEMP -EQ SFC 16 BIT TEMPORARY 
OOFE- 1248 VAL -EQ SFE 16 BIT VALUE 
1250 *--------------------------------+- 
1268 INIT 
@308- AQ 4c 12768 LDA #$4C MODIFY CHRGET 
@382- 85 Bl 1282 STA CHRGET TO CALL HERE 
G9304- AY 18 12998 LDA #NEW.CHRGET 
O9396- 85 B2 1382 STA CHRGET+1 
8388- AY B3 1310 LDA /NEW.CHRGET 
838A- 85 B3 13208 STA CHRGET+2 
@30C- 4C G3 ED 1330 JMP BASIC RETURN TO A/S 
1348 NEXTCH 
O30F- E6 B8 1358 INC TXTPTR DUPLICATE THE 
G311- DB B2 1362 BNE .12 OLD CHRGET 
@313- E6 BY 1372 INC TXTPTR+1 
8315- 4C B7 88 1382 .10 JMP CHRGOT 
1390 *-------------------------+-------- 
1408 NEW.CHRGET 
8318- 2C C9 83 1419 BIT IDX NORMAL MODE? 
@31B- 18 5c 1420 BPL .6@ -NO 
1430 * 
1449 * CHECK FOR "$" AS NEXT CHARACTER 
1450 * 
G31D- 20 OF 83 1460 JSR NEXTCH GET CHAR 
@320- c9 24 1472 CMP #$24 "Ss" 2 
9322- D@ 52 1480 BNE .5@ -NO, RETURN IT 
1498 .18 


1588 * PARSE A HEX NUMBER AND CONVERT 
1518 * IT TO A BINARY VALUE 
1528 * 

G324- AY BO 1538 LDA #0 
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0326- 85 FE 1548 


8328- 85 FF 1550 
O32A- AY 04 1569 
G32C- 8D C9 B3 1578 

1588 
@32F- 280 OF 83 1598 
0332- FO 30 1689 
G8334- 38 1619 


8335- EY 38 1628 
9337- 38 18 1630 
8339- C9 OA 1646 
833B- 98 OA 1658 


833D- E9 11 1669 
833F- 38 23 1678 
G341- C9 G6 1688 


9343- BO 1F 1698 
8345- 69 OA 1780 
@347- 28 AF 63 17198 
O34A- 65 FE 1720 
@34C- 85 FE 1730 
O34E- 4C 2F 803 1740 


1750 
8351- C9 88 1768 
0353- DO OF 1778 
0355- 20 AF 63 1780 
0358- A5 FE 1790 


O35A- 09 BOD 189 
935C- 85 FF 1810 
O35E- AY EF 1820 
9360- 85 FE 1830 
0362- D@ CB 1840 

18598 
0364- A5 B8 1860 
8366- DO BO2 1878 
0368- C6 BY 1888 
O36A- C6 B8 1898 
836C- A5 B8 1908 
O36E- 85 FC 1910 
@370- A5 BY 1920 
0372- 85 FD 1938 

1940 
0374- AY 3B 1950 
0376- 4C BA 88 1960 

1976 

1988 

1998 

2908 
0379- A5 FC 2818 
637B- 85 B8 2028 
837D- A5 FD 2030 
037F- 85 B9 2040 
O381- 8E CA 83 2058 


O387- CE C9 83 2878 
O38A- AY 38 2080 
2890 


20 


36 


#35 


40 


~41 


* 


58 
60 


LDA 
STA 


LDA 
JMP 


TXTPTR 
41 
TXTPTR+1 
TXTPTR 
TXTPTR 
TEMP 
TXTPTR+1 
TEMP+1 


#5308 
CHRCHK 


VAL := @ 


INDEX TO POWER 
OF TEN TABLE 


GET HEX DIGIT 
-EOL OR ":" 


CHECK FOR DIGIT 
-NOT A DIGIT 


-OK (8-9) 
-NOT A DIGIT 
-NOT A DIGIT 


MULT VAL BY 16 
ADD NEW DIGIT 


"DEF" TOKEN? 
-NO 
-YES 


ASL BY 12 AND 
ADD SODEF 


(ALWAYS ) 


BACK UP THE 
TEXT POINTER 


SAVE TXTPTR 
IN CASE IT IS 
DECREMENTED 
BY THE CALLER 


ASCII "6" 
~EXIT 


* CONVERT BINARY VALUE TO DECIMAL 
* AND RETURN THE NEXT ASCII DIGIT 


* 


70 


LDA 
STA 
LDA 
STA 
STX 
LDX 
DEC 
LDA 


TEMP 
TXTPTR 
TEMP+1 
TXTPTR+1 
SAVE .X 
IDX 

IDX 

#$30 


FIX ANY ATTEMPT 
TO DECREMENT 
TXTPTR 

POWER OF TEN 


ASCII "@" 
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938C- 
038D- 
038F- 
B392- 
0394- 
0397- 
0399- 
039B- 
039D- 
O3AG- 
93A2- 
O03A3- 
O03A4- 
O3A6- 


O3A8- 
03A9- 


8 3AC- 


O3AF- 
O3B2- 
03B5- 
83B7- 
03B9- 
O3BB- 


93BC- 


O3BF- 
B3CB- 
G83Cl- 
93C2- 
G03C3- 
03C4- 
B3C5- 
03C6- 
03C7- 
B3C8- 
B3C9- 
O3CA- 


63 


83 


03 


83 


BO 


03 
83 


E8 


ASCII DIGIT 
VAL 
LO.TENS,X SET CARRY 
VAL+1 


~EXIT LOOP 
LO.TENS, X 

VAL 

ASCII DIGIT 


#1 
- 78 


INCREMENT IT 
-LOOP 


ASCII DIGIT 
SAVE .X 


CHRCHK PROCESS IT 

ASL VAL BY 4 
ASL VAL BY 2 
ASL VAL BY 1 
VAL+1 

-OVERFLOW ERROR 
-EXIT 


REPORT OVERFLOW 


LO.TENS .DA #1 


-DA 
~-DA 
~DA 
-DA 


#1 
#180 
#1989 
#10900 


HI.TENS .DA /1 


-DA 


ZZZZZZ .EN 


TABLE INDEX 
SAVE X-REG 
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YOU'VE JUST RUN OUT OF EXCUSES 


NOT TO GET A NEW PERIPHERAL FOR YOUR APPLE. APPLIED ENGINEERING 
IS HAVING ITS FIRST SALE. 20% OFF OUR FULL LINE OF PERIPHERALS 
UNTIL DECEMBER 31, 1981. 


JUST LOOK AT THE SAVINGS 


REGULAR PRICE SALE PRICE YOU SAVE 
TIME II 129.00 103.20 25.80 
A/D 129.00 103.20 25.80 
MUSIC SYNTHESIZER 159.00 127.20 31.80 
INPUT /OUTPUT 62.00 49.20 12.40 


AND DON'T FORGET THAT OUR PERIPHERALS COME WITH LOTS OF SOFTWARE 
ON DISK AND THEY'RE EASY TO USE TOO. IF YOU NEED TO KNOW THE 


TIME IN YOUR PROGRAM, WITH OUR CLOCK JUST..... 
PRINT TIME$ 


IT'S THAT EASY AND OUR OTHER BOARDS ARE JUST AS EASY TO USE. 
OUR BOARDS ARE DESIGNED TO BE RELIABLE - WE'VE ONLY HAD ONE BOARD 


RETURNED FOR REPAIR SINCE WE'VE BEEN IN BUSINESS. 


SHOW THIS AD TO A LOVED ONE AND MAYBE IF YOU'RE GOOD, ON CHRISTMAS 


DAY YOUR APPLE WILL BE ABLE TO DO THINGS IT NEVER COULD BEFORE. 


APPLIED ENGINEERING 


PO BOX 470301 (214) 492-2027 
DALLAS, TEXAS 75247 
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Applesoft Line Editing Aid.........ceeeeee-eSandy Mossberg 


[ Sandy is an M.D. in Port Chester, New York. You have 
probably seen his excellent articles and programs in NIBBLE. 


The following program is a developmental tool for 
line-editing Applesoft programs. It places the line you 
specify at the top of the screen, ready to be cursor edited. 
The line is displayed without added blanks at the end of 
each screen line, which can mess up editing of PRINT 
statements. Obviously, adding Konzen-like PLE features 
would make it much nicer, but that's a story for another 
day. 


The program loads at the ever-popular $300. If you BRUN it, 
or BLOAD and CALL768, it installs itself. To use it, type a 
Slash and a line number. For example, to edit line 150, 
type "/150" and a carriage return. The screen will be 
Cleared and line 150 displayed on the top. The cursor will 
be placed over the first character, and you will be ready to 
edit it with standard cursor-editing techniques. (If there 
is no line 150 in memory, the bell will ring instead.) 


Several aspects of the code should be of interest to 
assembly language programmers: 


(1) As noted in AAL of 9/81, the CHRGET/CHRGOT 
routine screens for the command character (a 
Slash). This technique permits concurrent use of 
an amper-utility. The KSW hook could be employed 
as yet another filter, making a trio of vectors 
operative. 


(2) To allow “illegal” line numbers (64000-65535) 
to be accessed, the LINGET routine is replaced by 
calls to FRMEVL and GETADR (see Lines 1800-1810). 


(3) The de-parsing secton (see Lines 2030-2500) is 
an offspring of Applesoft's LIST routine, modified 
to pring a single program line rather than an 
entire listing. I also eliminated the code which 
adds those extra blanks in the middle of quoted 
strings which take more than one screen line to 
LIST. To me it seems pretty neat! 


Since I did not make any test to determine whether or not 
the program is RUNning at the time the slash is trapped in 
my filter, you have to be careful about using the slash 
character in REM statements. For example, "REM /150" will 
Clear the screen and list line 150 at the top before 
proceeding. Other combinations of "/" in REM's may blow up. 
Also, typing "/" when Applesoft is executing an INPUT 
statement is now dangerous. Anyone know how to fix this? 


Apple Assembly Line....December, 1981....Copyright (C) S-c SOFTWARE....Page 11 


1000 


* 

1010 * LINE. EDIT 

1020 * 

1030 * BY SANDY MOSSBERG 

1040 * 

1050 * COMMERCIAL RIGHTS RESERVED 

1060 * 

10790 *—-——___--—________________________ 

1080 * 1.PACKS PROGRAM LINE FOR EASY EDITING. 

1090 * 

1100 * 2.USES CHRGET/CHRGOT FILTER ROUTINE NOTED IN AAL 9/81. 

1110 * 

1120 * 3.CHARACTER OUTPUT ROUTINE MODIFIED FROM APSOFT ROM 

1140 * 

1150 * 4. INSTALLATION AND USE: 

1160 * (A) BRUN LINE.EDIT. 

1170 * (B) COMMAND "/LINENUMBER” PRODUCES PACKED LINE AT 

1180 * TOP OF SCREEN, 

1190 * (C) IF CHRGET/CHRGOT VECTOR DESTROYED BY APSOFT 

1200 * COLDSTART (]FP, *E000G, *CTL-B), RESET LINE.EDIT 

1210 * VECTOR BY CALL 768. 

1220 * 

1230 OR $300 

1240 * 

1250 * APPLESOFT POINTERS 

1260 *———————$—$—$ $$ $$ ____—— 
0085- 1270 AS.FORPNT .Q $85 :HOLD Y—REGISTER 
O0O9B- 1280 AS.LOWTR .EQ $9B,S9C ;:LOCATION OF CHARACTER OR TOKEN IN PGM 
009D- 1290 AS.DSCIMP .BQ S$9D,S9E ;LOCATION IN KEYWORD TABLE 

1300 *-————$—$— $— 

1310 * APPLESOFT CHRGET/CHRGOT 

1320 * 
OOB1- 1330 AS.CHRGET .M SBI GETS CHARACTER AT TEXT POINTER 
OOB8- 1340 AS.TXTPTR .EQ $B8,SB9 ;TEXT POINTER 
OOBA- 1350 AS.CHREXT . SBA :CHRGET/CHRGOT VECTOR TO LINE. EDIT 
OOBE- 1360 AS.CHRENT .HQ SBE ;RE-ENTRY TO CHRGET/CHRGOr 

1370 * 

1380 * APPLESOFT ROM 

1390 * 
D61A- 1400 AS.FNOLIN .Q SD6]A_ ;ADDR NMBR IN LINNUM (S50,$51) TO LOWIR 
DAFB- 1410 AS.CRDO ~-EQ SDAFB_ ;LINEFEED 
DB57- 1420 AS.OUTSP .&Q SDB57 = ;QUTPUT SPACE 
DB5C- 1430 AS.OUTDO .HQ SDB5C ;OUTPUT CHARACTER 
DD7B- 1440 AS.FRMEVL .EQ SDD7B~ ;FORMULA AT TEXT POINTER TO FAX (S9D-SA2) 
E752- 1450 AS.GETADR .BQ S$E/52  ;FAM TO INTSGER IN LINNUM (S50,S$51) 
ED24—- 1460 AS.LINPRT .M) SED24 ~~ ;PRINT DECIMAL OF (A,X) 

1470 * 

1480 * MONITOR ROM 

1490 * 
FBSB- 1500 MON.TABV .HQ SFBSB_ ;VTAB TO VALUE IN (A) 


FCS8- 1510 MON.HOME .EQ SFC58 ;HOME CURSOR, CLEAR SCREEN 
FF3A- 1520 MON.BELL .Q SFF3A_ ;BEEP! 


Page 12....Apple Assembly Line....December, 1981....Copyright (C) S-C SOFTWARE 


033D- 
033F- 
0341- 
0344- 
0345- 


AQ 
AA 
20 
cB 
Bl 


BE 00 


RAS 


a 
BEA 


20 
85 
5C DB 


9B 


0347- DO 13 


Apple 


Assembly Line. 


2060 
2070 
2080 


I wll CMP #$3A 


. 


* PUT LINE. EDIT VECTOR INTO CHRGET/CHRGOT 
a ee enn 
START LDA #$4C ;JMP "LINE. EDIT" 
STA AS. CHREXT 
LDA #EDIT 
STA AS, CHREXT+] 
LDA /EDIT 
STA AS, CHREXT+2 
RTS1 RIS 
& 
* CHECK FOR VALID COMMAND 
ee a ee 
EDIT CMP #$2F ;1S IT A SLASH (/)? 
BNE .1 ;NO. RETURN 
INC AS.TXTPTR YES. BUMP TEXT POINTER 
BNE .2 ;BRANCH ALWAYS 
en ae a OR Seen ee nC 
* RETURN TO CARGET/CHRGOT OR CALLER 


x 


;IF COLON (50S), SET 2 AND C 
BCS RIS1 ; FLAGS AND RETURN TO CALLER 
JMP AS.CHRENT ;IF NOT BOS, RE-ENTER CHRGET/CHRGOT 
* 


* FIND LOCATION OF LINE NUMBER 
* 


o2 JSR AS.FRMEVL ;PUT LINE NUMBER INTO FAC (S$9D-SA2) 


JSR AS.GETADR sPUT FAC INTO LINNUM (S$50,$51) 
JSR AS.FNDLIN sPUT ADDR OF LINE INTO LOWIR 
BCC .5 ;CARRY CLEAR IF LINE NMBR NOT FOUND 
eee 
* CLEAR SCREEN AND SET TO ROW 2, COLUMN 2 
a ee ee eee re Te 
JSR MON. HOME 
JSR AS.CRDO 
JSR AS.OUTSP 
DR nccrcenecricentinsenickicnicaternmedicasiawa! 
* PRINT LINE NUMBER 
*. ; 
LDY #02 3;SET INDEX TO LINE NUMBER BYTES 
LDA (AS.LOWTR) ,Y ;PUT LINE NUMBER LO 
TAX : INTO (X) 
INY 


LDA (AS.LOWIR) ,Y ;PUT LINE NUMBER HI INTO (A) 
STY AS. FORPNI HOLD (Y) 
JSR AS.LINPRI ;PRINT DECIMAL OF (A,X) 

* 


* GET CHARACTER OR TOKEN 
* 
LDA #$20 SPACE 
3 LDY AS.FORPNT ;RESTORE (Y) 


°4 JSR AS.OUTDO ;PRINT CHARACTER IN (A) 
INY 
LDA (AS.LOWIR) ,Y ;GET CHARACTER OR TOKEN 
BNE .8 IF NOT BOS (0), GET MORE 
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2100 


*. 


2110 * ‘TWO ENDINGS — ONE HAPPY, ONE SAD 

1 | 
0349- AS 00 2130 LDA #00 ;LINE WAS FOUND. END WITH 
034B- 4C 5B FB 2140 JMP MON. TABV 3 CURSOR AT ROW 2, COLUMN 2 
034E- 20 3A FF 2150 .5 JSR MON. BELL ;LINE WAS NOT FOUND. END WITH 
0351- 4C FB DA 2160 JMP AS.CRDO 7; CURSOR BELOW COMMAND INPUT 

2110 *—__-----—_—_———_——————eororeeeeee 

2180 * GET CHARACTER IN KEYWORD TABLE 

2190 *-_—_-_______________ 
0354— CB 2200 .6 INY 
0355- DO 02 2210 BNE ./7 
0357- E6 9E 2220 INC AS.DSCIMP+1 
0359- Bl 9D 2230 .7 LDA (AS.DSCIMP) ,Y 
035B- 60 2240 RTS 

2250 * 

2260 * PRINT CHARACTER OR KEYWORD 

2270 * 
035C- 10 E3 2280 .8 BPL .4 ?NON-TOKEN IS POS ASCII 
035E- 38 2290 SEC TOKEN MINUS $7F EQUALS INDEX TO 
035F- ES 7F 2300 SBC #$7F ; LOCATION OF KEYWORD IN TABLE 
0361- AA 2310 TAX 7PUT INDEX IN (X) 
0362- 84 85 2320 STY AS. FORPNT ?HOLD (Y) 
0364- AO DO 2330 LDY #SD0 ;KEYWORD TABLE STARTS AT SDODO 
0366- 84 9D 2340 STY AS.DSCIMP 
0368— AD @& 2350 LDY #SCF 
O36A- 84 9E 2360 STY AS.DSCIMP+1] 
036C- AO FF 2370 LDY #SEF ;WHEN BUMPED, (Y) WILL BE ZERO 
O036E- CA 2380 .9 DEX #DBC INDEX TO KEYWORD LOCATION 
036F- FO 07 23 90 BED .11 ;WHEN (X) IS ZERO, KEYWORD LOCATED 
0371- 20 54 03 2400 .10 JSR .6 7GET CHARACTER IN KEYWORD TABLE 
0374- 10 FB 2410 BPL .10 7IF POS ASCII, GET ANOTHER 
0376— 30 F6 2420 BMI .9 ?IF NEG ASCII, DEC LOCATION INDEX 
0378- 20 57 DB 2430 .11 JSR AS.OUTSP ;PRINT SPACE 
037B- 20 54 03 2440 .12 JSR .6 ;GET CHARACTER IN KEYWORD TABLE 
037E- 30 05 2450 BMI .13 ;IT'S THE FINAL CHAR IN KEYWORD 
0380- 20 5C DB 2460 JSR AS.OUTDO ;PRINT NON-FINAL CHAR (POS ASCII) 
0383- DO F6 2470 BNE .12 ;BRANCH ALWAYS 
0385- 20 5C DB 2480 .13 JSR AS.OUTDO ;PRINT FINAL CHAR (NEG ASCIT) 
0388- AS 20 2490 LDA #$20 ?SPACE 
O38A- DO B3 2500 BNE .3 ;BRANCH ALWAYS 

2510 * 
008C- 2520 SIZE .Q *-START 
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Decision 
Decision Systems 


S P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 

$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER _ PRODUCTS 


ISAN-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$50 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE..., CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$35. Disk, Applesoft (48K, ROM or Language Card). 


FORN-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft’s CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Appiesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


*Apple Il is a registered trademark of the Apple Computer Co. 
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Improved Applesoft Fast String Input....Bob Sander-Cederlof 


In the April 1981 issue of AAL I printed a subroutine to 
read a line from the keyboard or a text file into an 
Applesoft string. The original version had a minor flaw (or 
major, if you happened to run into it): it left the 
high-order bit on in each byte, so that Applesoft could not 
compare them properly with strings from other sources. I 
printed a correction in a later issue, which stripped off 
the leading bit from each byte before putting it in the 
string. 


Now Sherm Ostrowsky (from Goleta, California) has pointed 
out a more elegant solution. He uses a subroutine inside 
Applesoft that reads a line, terminates it with hex 00, and 
strips off the leading bit from each byte. The subroutine 
starts at $D52C. The only thing it doesn't do that we need 
is give us the length of the input line. Here is a 
commented listing of it. 


1000 #--------~--------~---~----------- 
1010 ¢ APPLESOFT LINE INPUT SUBROUTINE 
1030 .OR $D52C 
1080 -TA $82C 
0033- 060 MON.PROMPT .EQ $33 
FDOA- 1070 MON -RDLINE -EQ $FD6A 
0200- 1080 BUFFER -EQ $200 
1090 #--------------------~------------ 
1100 AS. INLINE 
D52C- A2 80 ~=—_: 1110 LDX #$80 NULL CHARACTER 
D52E- 86 33-1120 INLIN2 STX MON.PROMPT FOR THE PROMPT CHARACTER 
D530- 20 BA FD 1130 JSR MON.RDLINE READ A LINE INTO BUFFER 
Do33- EO BF 1140 CPX #239 TRUNCATE TO 239 CHARACTERS 
Do3o- 90 02 1150 BCC . 
D537- AZ EF =: 1100 LDX #239 
D539- A900 1170 «1 LDA #0 MARK END OF LINE WITH $00 
D53B- 9D 00 02 1180 STA BUFFER ,X 
D53E- 8A 1190 TXA # REAL CHARS IN LINE 
D53F- FO 0B ~—«: 1200 BEQ .3 EMPTY LINE 
D541- BD FF 01 1210 .2 LDA BOFFER- 1,X STRIP OFF ALL SIGN BITS 
D544- 29 7F 1220 AND # #$7F 
D546- 9D FF 01 1230 STA BUFFER-1,X 
D549- CA 120 DEX 
D54A- DO F5  ~—«-: 1250 BNE .2 
D54C- A900 =: 1260 .3 LDA #0 
D5yE- A2 FF  —-: 1270 LDX #BUFFER-1 
D550- AO 01 =: 1280 LDY /BUFFER-1 
D552- 60 1290 RTS 


Since $D52C stores $80 (null) in the prompt character, you 
might want to load the X-register with $87 (bell) and enter 
at S$D52E instead. 


Since the subroutine returns with S$FF in the X-register, and 
we need the length of the input line instead, we can use the 
following code to get the line length in xX: 


JSR $D52C 
ol INX 

LDA $200,X 

BNE .1 
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Here iS a new version, then, of my fast string input 
subroutine: 


1000 Sanne ewe e en enee nnn eee nnnnneennan~ 
1010 # FAST STRING INPUT ROUTINE 
1020 # &GET <STRING VARIABLE> 
1030 ACCEPTS ANY CHARACTER, UNLIKE NORMAL INPUT 
1050 .OR 0 
19 0 -TF B.FAST READ 
O0B1- 1080 AS.CHRGET .EQ $00B1 
DEC9- 1090 AS.SYNERR .EQ $DEC9 
D52C- 1100 AS. INLINE .EQ $D52C 
DFE3- 1110 AS.PTRGET .EQ $DFE3 
E452- 1120 AS.GETSPA .EQ $E452 
E5E2- 1130 & AS.MOVSTR <EQ $E5E2 
0071- 1150 ADDR .EQ qi A ND 72 
0083- 1160 PNTR .EQ $83 AND 84 
009D- 1170 LENGTH -EQ $9D 
0200- 1180 UFF .EQ $200 
o30¢- C8 be sto ee PPE get” TOKEN 
0304- fe 3 DE 1220 P AS.SYNERR SORRY... 
0307- 20 B1 00 1230 1 JSR AS.CHRGET SET UP THE FOLLOWING CHARACTER 
O30A~ 20 E3 DF 1240 JSR AS.PTRGET FIND THE STRING VARIABLE POINTER 
030D- 20 2C D5 1290 JSR AS.INLINE READ A LINE INTO BUFFER 
0310- E 1260 .2 INX COMPUTE THE LENGTH OF THE LINE 
0311- BD 00 02 1270 LDA BUFFER, X 
0314= DO FA 1280 BNE .2 NOT AT END OF LINE YET 
031 - 6 9D 1290 STX LENGTH SAVE LINE LENGTH 
0319- 20 52 E4 1310 JSR AS.GETSPA GET SPACE IN STRING AREA 
031C= AO 00 1320 LDY #0 SET UP STRING VARIABLE POINTER 
031B- 94 83 1330 STA (PNTR),Y LENGTH 
o3o1- A5 71 1350 LDA ADDR 
0323- 9 3 60 STA (PNTR),Y ADDRESS (LO-BYTE) 
He A5 72 1 bo LDA ADDR+1 
0328- 91 83 1390 STA (PNTR),Y | ADDRESS (HI-BYTE) 
032A- AO 02 1400 LDY /BUFFER SET UP TO COPY STRING DATA 
gage fg 901g ERK FERRER Tito STRING AREA 
0330- 4C E2 E5 1430 JMP AS.MOVSTR COPY IT NOW, AND RETURN 


Here is how you might use it from an Applesoft program, to 
read a series of lines from a file: 


100 DS = CHRS$ (4) 

110 PRINT DS$"BLOAD B.FAST READ" 

120 POKE 1013,76 : POKE 1014,0 : POKE 1015,3 
210 PRINT DS$"OPEN MY.FILE" 

220 PRINT DS$"READ MY.FILE" 

230 FOR I = 1 TO 10 

240 & GET AS$(I) 

250 NEXT I 


Note that the subroutine is fully relocatable. Since there 
are no internal JMP's or JSR's, and no internal variables, 
you can load the program anywhere it will fit and run it 
without any modifications. Just be sure to change line 120 
above to POKE the correct address in 1014 and 1015. 
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Note that this patch does not "print" the ASCII codes on the 
screen; it "pokes" them. Therefore if your printer is on, 
the printed copy will only contain the hex dump. The ASCII 
codes will only appear on the screen. 


How do you patch the RAM card version of the monitor? 
Here's how I did it: 


1) Load the language card using your DOS 3.3 Master 
Disk, or whatever technique you like to use. 


2) Turn on the language that is in the card (using FP 
or INT). 


3) BSAVE MONITOR,ASF800,LS$800. 
4) BRUN ASMDISK 4.0 
5) BLOAD MONITOR,AS$800 


6) Enter the source code for the patches and assemble 
them with the ASM command. This will patch the monitor 
copy which you loaded at A$800 in step 5. 


WRITe NOUW 


Southwestern Data Systems, an industry ploneer in innova- 
tive software for the Apple Il. is always looking for authors. There 
are no limitations on the size or type of software you can 
submit — utilities, communication, business, education, or 
gomes — the only requirement is that It must meet the quality 
standards which typify all SOS products. When you join the SDS 
team, you get the benefits of a professional support staff 
experienced in providing all you need to get your program to 
market. Here are some of the ways we help you: 


@ TECHNICAL PROGRAMMING ASSISTANCE 

@ UNIQUE COPY PROTECTION W/LIMITED BACKUPS 
@ SUCCESSFUL MARKETING STRATEGIES 

@ ASSISTANCE IN WRITING THE MANUAL 

@ PROFESSIONAL PRODUCT ARTWORK 

@ QUALITY ADVERTISING 

@ SUPERIOR PACKAGING 

@ NATIONAL DISTRIBUTION 

@ HIGHEST ROYALTIES PAID MONTHLY 

© CUSTOMER SERVICE SUPPORT 


This Is the opportunity you hove been waiting for, a chance 
to market your program with the finest publisher in the soft- 
ware industry. Let Southwestern Data Systems’ reputation and 
proven track record for success go to work for you. If you think 
you have what we want — a unique and distinctive software 
package — please call or write us today! 


P.O. BOX 582 = SANTEE, CA 92071 = (714) 562-3670 
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Adding ASCII to Apple Monitor Dump....Bob Sander-Cederlof 


Peter Bartlett (subscriber in Chicago, IL) sent me some 
source code for patches to the Apple Monitor ROM. Of 
course, patching a ROM may be a little too much hardware 
work, but if you have a 16K RAM card you can put the revised 
monitor up there. The space needed for the patch is stolen 
from the cassette I/O command, so if you install this patch 
you will lose cassette I/O. 


Peter's patches add the ASCII dump to the Apple Monitor's 
hex dump. That is, when I type a command like "800.87F" in 
the monitor, it will not only print out the hex values, but 
also the ASCII values of each byte. I modified his patches 
a little, to shorten the code to the following: 


1000 Penn nnn nnn nnn nnn nnn nnn ena 

1010 ® PATCHES TO ADD ASCII DUMP 

Wace : TO THE APPLE MONITOR 
Fa 1080 A1L EQ 336 
FDED- fee COUT ~EQ ED 

rhe -OR $FDB8 

10380 -TA $ODB8 
FDB8- 20 C9 FC Lira : JSR PATCH CALL MY PATCH CODE 

1110 -OR $FCC9 

1120 TA 30CC9 

a Re PATCH 
FCC9- 20 ED FD 1140 JSR COUT PRINT A SPACE 
FCCC- Bi 3C 1150 LDA (A1L),Y GET BYTE TO BE DISPLAYED 
FCCE- 48 1160 PHA AVE IT ON STACK 
FCCF=- A5 3C ‘ho A AIL LOW BYTE OF DUMP ADDRESS 
Seas “4 07 1390 ite #7 MASK LINE POSITION 
Ecos 6a 1F are re #31 COMPUTE HORIZONTAL OFFSET 
FCD7- 68 1220 PLA GET BYTE FROM STACK 
FCD8- 91 28 io STA ($28) ,¥ STORE IT ON THE SCREEN 
FCDA- AO 00 1240 LDY # RESTORE Y 
FCDC- 60 1250 RTS 


These patches will work with either the old monitor ROM, or 
the Autostart ROM. The JSR PATCH line goes right into the 
hex dump program, over the top of a JSR COUT that printed a 
Space. That space is normally printed right before the next 
byte value is printed in hex. The address of the next byte 
is kept in AlL,AlH ($3C,3D). The Y-register has 0 in it. 


The main patch subroutine is stored on top of part of the 
cassette tape I/0, at S$FC99; it begins with the JSR COUT 
that was covered up at SFDB8. Lines 1150,1160 pick up the 
byte to be displayed and save it on the stack. Lines 
1170-1210 compute the horizontal postition for poking the 
byte on the screen. The low-order three bits of the memory 
address determine which column will be used, from column 31 
through 38. Lines 1220,1230 retrieve the byte from the 
stack and store it into the screen buffer. Lines 1240,1250 
restore Y=0 and return to the hex dump subroutine. 
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7) Type *$C081 C081" to write enable the language 
card. 


8) Type "SF800<800.FFFM" to move the patched monitor 
into the real monitor space. 


9) Type "BSAVE <your file name>,A$D000,L$3000" to save 
the combined language and monitor for later loading 
into the language card. 


If you really do want to burn a new monitor ROM, follow the 
instructions with your ROM Burner. 


NEW UTILITY FOR THE S-C ASM 

Do You Like Having Your Labels, Opcodes And Comments Lined Up For Readability, But Don’t Want To Give Up 
Free Format Entry. Or Did You Set Your Tabs For 8 Char Labels And Found You Needed A Few Longer Ones? Now 
There's No Need To Manually Edit Just To Lineup Those Colusns. SC. TAB Is A Source Formatting Utility For Use 
With The S-C Assembler (4.8). You Simply Specify The Colum Numbers For Opcodes And Comments And SC. TAB Does 
The Rest. fl Two-Pass Operation Insures You That There Are No Confilcts Before Any Changes Are Actually Made. 
Should A Problew Arrise Then The Offending Line And The Tab Settings Are Displayed For Your Inspection. The 
User Can Limit Changes To Any Portion Of Source. SC. TAB Is Fast Since Its 108% Machine Language. 


SC. TAB Programs Diskette & User Manual: $15.08 


INTRODUCTORY OFFER! 
For A Limited Time SC. TAB Is Available At A Special Introductory Price When Purchased With Both Of Our Other 
S-C Assembler Utilities. 
# SC.XREF : Generates Label Cross Reference Tabels For Complete Source Documentation 
# SC.6SR : A Global Search-And-Replace Eliminates Tedious Manual Renaming Of Labels 


Normally, All Three Utilities Would Cost $55.08. Buy Them Now And Save $10.02 


S Utility Package: $45.08 
(This special offer ends January 1, 1982) 


All shipments within continental USA via First-Class sail Foreign Orders: Add $3.08 for Air Mail 


RAK -WARE 
41 Ralph Road 
West Orange NJ 879052 
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NWA 


MICRO APPLICATION 


MACHINE LANGUAGE AIDS 


Completely document any 6502 machine language 
program that is less than $3800 bytes in length. 


Cross reference all JSR, JMP and branch instruc- 
tions. 


Document all of the memory locations used to 
load, store or otherwise manipulate data. 


Document the immediate load values that are 
within the range of the program. An aid to locating 
pointers to messages or subroutines. 


A MUST FOR THE DISASSEMBLER! 
System requirements: 


Apple || with Integer Basic (48K) 
Two disk drives 
Printer 


$60.00 
Post paid in the continental USA 


MICRO APPLICATION 
P.O. Box 120125 
Arlington, TX 76012 
(817) 265-5291 
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Applesoft GOTO from Assembly Language.........Bob Sander-Cederlof 


Bob Potts called the other day with an interesting question. 
Suppose you want to jump to a particular line (by line number) of 
an Applesoft program, rather than simply returning from an 
assembly language program. 


For example, I might call an assembly language subroutine at $300 
with "CALL 768". After it does its job, the subroutine may decide 
either to return to the following Applesoft statement by an "RTS" 
instruction, or to GOTO a particular line number in the program. 
(Perhaps an error processing subroutine in the Applesoft code.) 
Can it be done? 


Yes, and it is fairly simple. First we need to put the binary 
value of the line number into locations $50 and $51. Then we must 
jump to $D944 in the Applesoft ROMs to finish the GOTO operation. 
Here is the code to jump to line number 1350, for example: 


GOTO1350 LDA #1350 LOW BYTE OF "1350" 
STA $50 
LDA /1350 HIGH BYTE OF "1350" 
STA $51 
JMP $D955 APPLESOFT GOTO PROCESSOR 


That's all there is to it! 


WHAT, ANOTHER IMPROVEMENT ? 
Yes' DISASH The Intelligent Disassembler For The APPLE Has Been Enhanced With More Features Making It (ne 
Of The Most Powerful Utilities Of Its Kind. DISASH Converts 6582 Machine Code Into Meaningful, Syabolic 
Source. The Resultant Text File Can Be Used With Any Of The Most Popular Assemblers.  DISASM Is An 
Invaluable Aid For Understanding And Modifying Machine Language Progrags. Here Are The Specs: 


DISASM (VERSION 2.2) 

# Selectable output formats are directly compatable with DOS ToolKit, LISA and S-C (4.@) Assembiers. # 108% 
machine language for fast operation. # Autc-prompting for easy use. # Operates on either the APPLE II or 
APPLE I] Plus. # Labels automatically assigned as Pg Zero, External or Internal. # Labels and addresses are 
sorted for user convenience. # ORIGIN and EQUATE pseudo-ops provided. # Source seguentation after JMP and 
RTS allows for easier reading and understanding. # No restriction on disassembled block length {other than 
RAM oor Assembler lisitations). # Correctly disassembles displaced object code (The program being 
disassembled doesn’t have to reside in the memory space in which it executes). # User defined Label Nase 
able replaces arbitrary label assignments (External, Pg Zero and even Internal labels become scre 
aningful, e.g. JSR COUT, LDA WNDTOP. The use of the Name Table is optional. # Monitor ROM Label Nase 
Table is included with over 108 of the most commonly used subroutine labels. Label table SOURCE is also 
provided so you can extend and custosize it to your ow needs. # Multiple data tables with user defined 
format may be intermixed with instructions. # NEW ' A FULL Cross-Reference provides a complete table (to 
screen or printer) grouped by referenced address type. # NEW ' A SINGLE Cross-Reference feature searches 
through the object code for a single user-specified address. 


DISASM (2.2) Program Diskette & User Manual: $38.88 Upgrade Kit for previous purchasers of DISASM: $12.52 
All shipments within continental USA via First-Class sail Foreign Orders: Add $3.08 for Air Mail 


RAK -WA'RE 
41 Ralph Road 
West Orange NJ @79852 
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this works. 
You can POKE 


I wrote a tiny little subroutine to demonstrate that 
It expects to find the line number in $2FE and $2FF. 


it there before CALLing 768. Here is my subroutine: 

1000 *enn nn nn rn rrr rrr rrr nnn 
1010 * GO TO <LINE #> 
1020 * POKE THE LINE # INTO 766,767 
1030 * AND CALL768 TO GO TO IT 
L040 Benn nnn wn rr rrr rrr neers 
1050 -OR $300 

0300- AD FE 02 1060 GOTO LDA S$2FE 

0303- 85 50 1070 STA $50 

0305- AD FF 02 1080 LDA $2FF 

0308- 85 51 1090 STA $51 

O30A- 4C 44 DI 1100 JMP $D944 


Now here is a test program in Applesoft. Can you tell what it 
will do before you try it? The first two lines poke in the GOTO 
subroutine. The next five lines call the subroutine for 
successive values 1000, 2000, 3000 etc. up to 9000. The code in 
line 10000 jumps back to line 140 to continue the loop. Try it! 


10 FOR I = 0 TO 12: READ A: POKE 768 + I,A: NEXT 
20 DATA 173,254,2,133,80,173,255,2,133,81,76,68,217 


100 FOR I = 1000 TO 9000 STEP 1000 

110 IH = INT (I / 256):IL = I - IH * 256 
120 POKE 766,IL: POKE 767,18 

130 CALL 768 

140 NEXT I 

150 END 

1000 PRINT 1000: GOTO 10000 

2000 PRINT 2000: GOTO 10000 

3000 PRINT 3000: GOTO 10000 

4000 PRINT 4000: GOTO 10000 

5000 PRINT 5000: GOTO 10000 

6000 PRINT 6000: GOTO 10000 

7000 PRINT 7000: GOTO 10000 

8000 PRINT 8000: GOTO 10000 

9000 PRINT 9000 

10000 POKE 766,140: POKE 767,0: CALL 768 
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